home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-11_1986_Verlag_Heinz_Weise_de.d64 / midi checker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  57 lines
  1. 5 :sys3792
  2. 10 rem mididatasab49152
  3. 20 rem write=49600
  4. 30 rem pointer=49601
  5. 40 rem stackab49602+pointer
  6. 50 rem********************************
  7. 55 rem
  8. 60 rem mididemo (c) by ctronic
  9. 65 rem
  10. 70 rem christian toennies
  11. 72 rem a.duererstr.6
  12. 75 rem 4508 bohmte 1
  13. 80 rem
  14. 85 rem********************************
  15. 98 sys49152
  16. 99 printchr$(14)
  17. 100 rem midicheck
  18. 200 print"[147]":print"[145]               [205][201][196][201][195][200][197][195][203]                "
  19. 210 print"[194]itte verbinden [211]ie jetzt die [194]uchsen"
  20. 220 print"[205][201][196][201]-[201]n und [205][201][196][201]-[207]ut mit einem"
  21. 230 print"[205][201][196][201]-kabel und druecken [211]ie an- "
  22. 240 print"schliessend eine [212]aste."
  23. 250 print"                [176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  24. 255 print"                [221]            [221]"
  25. 260 print"               [166][166][166]          [166][166][166]"
  26. 265 print"               [166][166][166]          [166][166][166]"
  27. 270 print"            [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  28. 275 print"            [221] [205][201][196][201]          [205][201][196][201]"
  29. 280 print"            [221]  out           in "
  30. 285 print"            [221]  "
  31. 290 print"            [221]
  32. 295 [151]198,0:[146]198,1
  33. 299 [153]"load"
  34. 300 [153]"on               (NULL)right$str$right$lenleft$vallen(NULL)               close"
  35. 310 [153]"(NULL)enn (NULL)ie jetzt eine (NULL)aste druecken,"
  36. 320 [153]"wird diese right$nformation im atn(NULL)lenright$right$-lenode an"
  37. 330 [153]"die (NULL)right$str$right$-(NULL)ut peekuchse geleitet.(NULL)right$str$right$-right$n "
  38. 335 [153]"empfaengt die str$aten und schreibt sie auf";
  39. 340 [153]"den peekildschirm."
  40. 350 [153]"   notnotnotnotnotnotnotnotnotnotnotnot      notnotnotnotnotnotnotnotnotnotnotnot"
  41. 353 [153]"   spc(          spc(      spc(          spc("
  42. 355 [153]"   spc( (NULL)right$str$right$-(NULL)ut spc(      spc( (NULL)right$str$right$-right$n  spc("
  43. 360 [153]"   spc(          spc(      spc(          spc("
  44. 370 [153]"   spc(notnotnotnotnotnotnotnotnotnotspc(      spc(notnotnotnotnotnotnotnotnotnotspc(
  45. 380 print"   [166]          [166]      [166]          [166]"
  46. 384 print"     ?                 ="
  47. 385 z=1024+19*40:s=102:pokez+3,s:pokez+14,s:pokez+21,s:pokez+32,s
  48. 390 print"   [166]          [166]      [166]          [166]"
  49. 395 print"   [166][168][168][168][168][168][168][168][168][168][168][166]      [166][168][168][168][168][168][168][168][168][168][168][166]"
  50. 397 print"       [218]urueck mit > [210]eturn <"
  51. 410 geta$:ifa$=""then410
  52. 420 a=asc(a$):pokez+9,a:poke49600,a
  53. 422 sys49185
  54. 425 ifa=13thengoto100
  55. 430 x=peek(49601):pokez+26,peek(49602+x-1)
  56. 480 goto410
  57.